home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / l / letov3.0.lha / ARexx / InfoText.rexx < prev    next >
OS/2 REXX Batch file  |  1995-03-27  |  520b  |  28 lines
  1. /* Skrypt ARexx'a dla Leto 2.2
  2. ** Uûycie komendy InfoText [Nagîówek|Widoczny tekst]
  3. ** Polecenie pozwala podawaê komunikaty na ekranie Leto
  4. ** Gdy wszystko ok wtedy rc=0, gdy pojawiî sië bîâd lub wybrano Anuluj to rc=1
  5. */
  6.  
  7. /* address    'rexx_leto' */
  8.  
  9. Options results
  10.  
  11.     InfoText 'Nagîówek|Przykîadowy tekst'
  12.     if ~rc then
  13.         do
  14.  
  15.         /* zabezpiecz sië przed zbyt dîugim tekstem */
  16.         if Length(LT_Info)>30 then LT_Info=SUBSTR(LT_Info,1,30)
  17.         Info1 30 'Odebraîem|'LT_Info
  18.         end
  19.     else    Info1 30 'UWAGA|Wybraîeô Anuluj'
  20.  
  21. Exit
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.